home *** CD-ROM | disk | FTP | other *** search
/ Disc Station 2 (Korea) / Disc Station Vol 2 (Korea).img / HEART / BAZAAR / BAZ_14.NTC next >
Text File  |  1997-06-04  |  11KB  |  982 lines

  1. ;
  2. ;
  3. ;
  4.  
  5.  
  6. ;
  7.  
  8. @wall                                    ;
  9. @mouse        0                            ;
  10. @frmlay     1,(15,51),60,9,1            ;
  11. @frmlay     2,(36,10),20,30,1            ;
  12.  
  13.  
  14. @frmact     1                            ;
  15. @frmclr     1                            ;
  16.  
  17. @txtreset                                ;
  18. @brank         0,1                            ;
  19. @scroll        0                            ;
  20. @txtsize    1,1                            ;
  21.  
  22. ;
  23. @txtdco     1                            ;
  24.  
  25.  
  26. ;
  27.  
  28. @chrload    bzz_kao.gcn,10,10            ;
  29.  
  30. @chrset        chrbg(0),0,0,0            ;
  31. @chrset        chrbg(1),0,0,1
  32. ;
  33. @chrset        chrbg(3),0,0,3
  34.  
  35.  
  36. ;
  37. @iconload    bzz_ico.gcn                    ;
  38. @iconset    iconchr0,1,0,0                ;
  39. @iconset    iconchr1,1,1,1
  40. @iconset    iconchr2,1,2,2
  41. @iconset        iconchr3,1,3,3
  42. @iconset    iconchr4,1,4,4
  43. @iconset    iconchr5,1,5,5
  44. @iconset    iconchr6,1,6,6
  45. @iconset    iconchr7,1,7,7
  46. @iconset    iconchr8,1,8,8
  47. @iconset    iconchr9,1,9,9
  48. @iconset    iconchr10,1,10,10
  49. @iconset    iconchr11,1,11,11
  50. @iconset    iconchr12,1,12,12
  51.  
  52.  
  53. $flag0 = 0
  54. $flag1 = 0
  55. $flag2 = 0
  56.  
  57.  
  58.  
  59. ;
  60. @pcmload     nokone.wlk                    ;
  61.  
  62.  
  63. @effect        2,255,8                        ;
  64. @wait         5
  65.  
  66.  
  67. @gra         bzz_tit.gcn,(0,0),0
  68. @effect        2,255,10
  69.  
  70. @keywait
  71. @pcm         1
  72.  
  73.  
  74.  
  75. ;
  76. :main_start
  77.  
  78. @effect     2,255,8
  79. @clr         (0,0),80,60,0
  80. @wait         10
  81.  
  82. @snd        2
  83.  
  84.  
  85.  
  86. :end
  87. @mouse         0
  88.  
  89.  
  90.  
  91. @gra         bzz_main.gcn,(0,0),0
  92. @gra         bzz_scr.gcn,(18,0),0
  93.  
  94. @effect        2,255,10
  95.  
  96.  
  97.  
  98.  
  99. ;
  100.  
  101. :main_loop
  102.  
  103. @gra         bzz_scr.gcn,(18,0),0
  104.  
  105. ;
  106. @iconput    iconchr0,(74,1)                ;
  107. @iconjump    :program_end
  108.  
  109.  
  110.  
  111.  
  112. @if    $flag0 != 0 :main_lp00
  113.  
  114. ;
  115. ;
  116. @txtdco     3                            ;
  117. ;
  118.  
  119. @wait        10
  120.  
  121. @chrput        chrbg(1),(0,50),1                ;
  122.  
  123. ╛ε╝¡íí┐└╝╝┐Σú«ííú─ú╙╣┘└┌└╟íí╝╝░Φ└╘┤╧┤┘ú«
  124. @keywait
  125. │¬┤┬íí└╠íí╝╝░Φ└╟íí╛╚│╗└╬ú«íí└╠╕º└║íí─½├≥╛╞╢≤░φíí╟╪┐Σú«
  126. @keywait
  127. ┐└┤├└║íí└╠░≈┐í╝¡íí╕╢└╜▓»íí┴±▒Γ░φíí░í╝╝┐Σú«
  128. @keywait
  129.  
  130. @frmclr        1
  131. ▒╫╖│íí╕╒└·ú¼
  132. í╕ú─ú╙╣┘└┌í╣└╟íí╝╝░Φ╢⌡íí╛ε╢▓íí░≈└╬┴÷íí
  133. ░ú┤▄╚≈íí╝│╕φ╟╥▓▓┐Σú¡úí
  134. @keywait
  135. @frmclr        1
  136. └╠íí╝╝░Φ╕ªíí╟╤╕╢╡≡╖╬íí╕╗╟╧╕Θú¼
  137. ╣┘╖╬ííí╕╣╠┤╧░╘└╙└╗íí┴±▒µíí╝÷íí└╓┤┬íí░≈í╣└╠╢°┤╧┤┘ú«
  138. @keywait
  139. @frmclr        1
  140. └╠░≈┐í┤┬íí╕┼íí╚ú╕╢┤┘íí╣╠┤╧░╘└╙└╠íí╕εíí░í┴÷íí╝÷╖╧╡╟░┼╡τ┐Σú«
  141. ▒╫╕«░φíí┤τ╜┼└║íí└╠íí╝╝░Φ╕ªíí┼δ╟╪íí▒╫íí░╘└╙└╗íí╟├╖╣└╠╟╥íí╝÷íí
  142. └╓▒╕┐Σú«
  143.  
  144. @keywait
  145. @frmclr        1
  146.  
  147. ╚¡╕Θíí└º└╟íí╛╞└╠─▄└╗íí┼¼╕»╟╪íí║╕╝╝┐Σú«
  148. @keywait
  149. ┐⌐╖»░í┴÷íí─┌│╩░ííí▒Γ┤┘╕«░φíí└╓┤Σ┤╧┤┘ú«
  150.  
  151. @keywait
  152. @frmclr        1
  153. └┌ú¼▒╫╖│íí├╡├╡╚≈íí┴±░▄íí┴╓╝╝┐Σúíúí
  154. @keywait
  155. @frmclr        1
  156.  
  157. @chrput        chrbg(0),(0,50),1            ;
  158.  
  159.  
  160.  
  161. $flag0 = 1
  162. ;
  163. @txtdco     0                            ;
  164.  
  165.  
  166. :main_lp00
  167.  
  168. @iconput    iconchr1,(20,17)            ;
  169. @comment    (2,0),1,└╠╣°íí╚ú┐í┤┬ííú▓░│└╟íí╣╠┤╧░╘└╙└╠íí╝÷╖╧╡╟╛εíí└╓┤Σ┤╧┤┘ú«
  170. @iconjump    :game_start
  171.  
  172. @iconput    iconchr3,(48,27)            ;
  173. @comment    (2,0),1,íí íí íí
  174. ;
  175.  
  176. @if    $flag2 != 0 :j_icon0
  177.  
  178. @iconput    iconchr2,(23,43)            ;
  179. @comment    (2,0),1,╛╤ú¼íí╗⌡╖╬┐εíí╝╥╜─└╠íªú┐úí
  180. @iconjump    :otayori_start
  181. @goto        :j_icon1
  182.  
  183. :j_icon0
  184. @iconput    iconchr2,(23,43)            ;
  185. @comment    (2,0),1,╝╥╜──┌│╩íí┴ªú▒╚╕ú«ííí░╜║─┌╛εíí╡╡└ⁿí▒╕≡┴²╡╡íí└╓╜└┤╧┤┘ú«
  186. @iconjump    :otayori_start
  187.  
  188. :j_icon1
  189.  
  190.  
  191.  
  192.  
  193. @mouse        1
  194. :program_loop
  195. @goto        :program_loop
  196.  
  197. ;
  198. ;
  199. ;
  200. ;
  201. ;
  202. ;
  203.  
  204.  
  205. ;
  206.  
  207. :game_start
  208. @pcm         1
  209.  
  210. @iconclr    iconchr1
  211. @iconclr    iconchr2
  212. @iconclr    iconchr3
  213.  
  214. @gra         bzz_w0.gcn,(20,5),2
  215.  
  216. @iconput    iconchr4,(22,13)                ;
  217. @comment    (2,0),1,í╕│╩▒╕╕«ííú╥ú┴ú├ú┼í╣
  218. @iconjump    :tanuki_start                ;
  219.  
  220. @iconput    iconchr5,(22,20)            ;
  221. @comment    (2,0),1,í╕╗╤┐Σ╗ºíí╕╘┤┬íí─½╣µ┼¼í╣
  222. @iconjump    :puyoman_start                ;
  223.  
  224. @iconput    iconchr6,(22,31)            ;
  225. @comment    (2,0),1,╕▐└╬╚¡╕Θ└╕╖╬íí╡╣╛╞░⌐┤╧┤┘ú«
  226. @iconjump    :exit_win00                    ;
  227.  
  228.  
  229. ;
  230.  
  231. :win_loop00
  232. @goto        :win_loop00
  233.  
  234.  
  235. :exit_win00
  236.  
  237. @iconclr    iconchr4
  238. @iconclr    iconchr5
  239. @iconclr    iconchr6
  240. @goto        :main_loop
  241.  
  242.  
  243.  
  244.  
  245.  
  246.  
  247.  
  248. ;
  249.  
  250. ;
  251. ;
  252.  
  253. ;
  254. ;
  255. ;
  256.  
  257.  
  258. ;
  259.  
  260. ;
  261.  
  262. ;
  263. ;
  264.  
  265. ;
  266. ;
  267. ;
  268. ;
  269. ;
  270. ;
  271. ;
  272. ;
  273. ;
  274. ;
  275. ;
  276. ;
  277. ;
  278. ;
  279. ;
  280. ;
  281. ;
  282. ;
  283. ;
  284. ;
  285.  
  286. ;
  287. ;
  288.  
  289. ;
  290. ;
  291.  
  292.  
  293. ;
  294.  
  295. ;
  296. ;
  297.  
  298. ;
  299. ;
  300.  
  301. ;
  302. ;
  303.  
  304. ;
  305. ;
  306.  
  307. ;
  308. ;
  309.  
  310.  
  311. ;
  312. ;
  313. ;
  314.  
  315.  
  316.  
  317.  
  318. ;
  319.  
  320. :win_loop03
  321. @goto        :win_loop03
  322.  
  323.  
  324. :exit_win03
  325.  
  326. @iconclr    iconchr9
  327. @iconclr    iconchr12
  328. @iconclr    iconchr10
  329. @iconclr    iconchr11
  330. @iconclr    iconchr3
  331. @iconclr    iconchr6
  332.  
  333. @goto        :main_loop
  334.  
  335.  
  336.  
  337. ;
  338.  
  339. :otayori_start
  340. @pcm         1
  341.  
  342. @iconclr    iconchr1
  343. @iconclr    iconchr2
  344. @iconclr    iconchr3
  345.  
  346. @gra         bzz_scr2.gcn,(18,0),2
  347.  
  348.  
  349.  
  350. ;
  351. @txtdco     3                                ;
  352.  
  353. @if    $flag2 == 0 :mon_talk
  354.  
  355. ;
  356.  
  357. @chrput        chrbg(3),(0,50),1                ;
  358. ╢╟íí╕╕│╡│╫úí
  359. @keywait
  360. @frmclr        1
  361. @chrput        chrbg(0),(0,50),1                ;
  362. @goto    :otayori_start_main
  363.  
  364.  
  365. ;
  366.  
  367. :mon_talk
  368.  
  369. @chrput        chrbg(1),(0,50),1                ;
  370. └╠íí▒┘├│┐í╝¡┤┬íí╕°║╕┤°íí╛╞└╬╡Ñíªú«
  371. @keywait
  372. @frmclr        1
  373. @chrput        chrbg(3),(0,50),1                ;
  374. ╛╚│τúííí└╠íí╝╝░Φ┐í╝¡íí├│└╜└╕╖╬íí╕╕│¬┤┬íí╛╞░í╛╛ú«
  375. │¡íí╕≡┤╧┤⌐╢≤░φíí╟╪┐Σú«
  376. @keywait
  377. @frmclr        1
  378. @chrput        chrbg(1),(0,50),1                ;
  379. ╛╚│τú¼╕≡┤╧┤⌐ú«
  380. │╗íí└╠╕º└║íí─½├≥╛╞╛▀ú«
  381. └╠íí╝╝░Φ┐ííí├│└╜íí┐╘┤┘╕Θíí│═íí┐▄▒╣└╬└╠▒╕│¬ú«
  382. @keywait
  383. @frmclr        1
  384. @chrput        chrbg(3),(0,50),1                ;
  385. │╫ú¼┐▄▒╣┐í╝¡íí▒▓└σ╚≈íí╕╣└║íí╝╥╜─└╗íí░í┴«┐╘╛ε┐Σú«
  386. ╛ε╢º┐Σú¼íí║╕░φíí░Ñ╖í┐Σú┐
  387. @keywait
  388. @frmclr        1
  389. @chrput        chrbg(1),(0,50),1                ;
  390. ┴ñ╕╗ú┐íí░φ╕╢┐÷úí
  391. @keywait
  392.  
  393. @frmclr        1
  394. @chrput        chrbg(0),(0,50),1                ;
  395.  
  396. $flag2 = 1
  397.  
  398. ;
  399. :otayori_start_main
  400.  
  401. ;
  402. @txtdco     0                                ;
  403.  
  404.  
  405. @gra         bzz_w3.gcn,(39,15),0
  406.  
  407.  
  408. @iconput    iconchr7,(41,28)
  409. @comment    (2,0),1,╝╥╜──┌│╩╖╬íí░⌐┤╧┤┘ú«
  410. @iconjump    :otayori_main                ;
  411.  
  412. @iconput    iconchr6,(41,36)
  413. @comment    (2,0),1,╕▐└╬╚¡╕Θ└╕╖╬íí╡╣╛╞░⌐┤╧┤┘ú«
  414. @iconjump    :exit_win05                    ;
  415.  
  416.  
  417. ;
  418.  
  419. :win_loop05
  420. @goto        :win_loop05
  421.  
  422.  
  423. :exit_win05
  424.  
  425. @iconclr    iconchr7
  426. @iconclr    iconchr6
  427. @goto        :main_loop
  428.  
  429.  
  430.  
  431. ;
  432.  
  433. :otayori_main
  434. @pcm         1
  435.  
  436. @iconclr    iconchr7
  437. @iconclr    iconchr6
  438.  
  439. @gra         bzz_ph3.gcn,(18,0),2
  440.  
  441. @iconput    iconchr7,(57,45)
  442. @comment    (2,0),1,┤┘└╜íí╞Σ└╠┴÷╖╬íí░⌐┤╧┤┘ú«
  443. @iconjump    :otayori_main2
  444.  
  445. ;
  446.  
  447. :win_loop06
  448. @goto        :win_loop06
  449.  
  450. :otayori_main2
  451.  
  452. @pcm         1
  453.  
  454. @iconclr    iconchr7
  455. @iconclr    iconchr6
  456.  
  457. @gra         bzz_ph4.gcn,(18,0),2
  458.  
  459. @iconput    iconchr7,(57,45)
  460. @comment    (2,0),1,┤┘└╜íí╞Σ└╠┴÷╖╬íí░⌐┤╧┤┘ú«
  461. @iconjump    :otayori_main3
  462.  
  463. ;
  464.  
  465. :win_loop07
  466. @goto        :win_loop07
  467.  
  468. :otayori_main3
  469.  
  470. @pcm         1
  471.  
  472. @iconclr    iconchr7
  473. @iconclr    iconchr6
  474.  
  475. @gra         bzz_ph5.gcn,(18,0),2
  476.  
  477. @iconput    iconchr7,(57,45)
  478. @comment    (2,0),1,┤┘└╜íí╞Σ└╠┴÷╖╬íí░⌐┤╧┤┘ú«
  479. @iconjump    :otayori_main4
  480.  
  481. ;
  482.  
  483. :win_loop08
  484. @goto        :win_loop08
  485.  
  486.  
  487. :otayori_main4
  488.  
  489. @pcm         1
  490.  
  491. @iconclr    iconchr7
  492. @iconclr    iconchr6
  493.  
  494. @gra         bzz_ph6.gcn,(18,0),2
  495.  
  496. @iconput    iconchr6,(57,45)
  497. @comment    (2,0),1,╕▐└╬╚¡╕Θ└╕╖╬íí╡╣╛╞░⌐┤╧┤┘ú«
  498. @iconjump    :exit_win07
  499.  
  500. :win_loop09
  501. @goto        :win_loop08
  502.  
  503. :exit_win07
  504.  
  505. @iconclr    iconchr6
  506. @goto        :main_loop
  507.  
  508.  
  509.  
  510. ;
  511.  
  512. :staff_1
  513.  
  514. @pcm         1
  515.  
  516. @iconclr    iconchr9
  517. @iconclr    iconchr12
  518. @iconclr    iconchr10
  519. @iconclr    iconchr11
  520. @iconclr    iconchr3
  521. @iconclr    iconchr6
  522.  
  523. @gra         bzz_w2.gcn,(35,10),2
  524.  
  525. @frmact     2                            ;
  526. @frmclr     2                            ;
  527.  
  528. @txtcol        7
  529. @locate        (5,4)
  530. íí(íí)
  531. @txtcol        9
  532. @locate        (0,9)
  533.   íí
  534. íí
  535. íí
  536. íí
  537. íí
  538. íí
  539. íí
  540. íí
  541. @keywait
  542. @frmclr     2
  543.  
  544. @txtcol        7
  545. @locate        (5,4)
  546. íí(íí)
  547. @txtcol        9
  548. @locate        (0,9)
  549. íí
  550. íí
  551. íí
  552. @locate        (0,17)
  553. íí
  554. íí
  555. íí
  556. íí
  557. íí
  558. íí
  559. @keywait
  560. @frmclr     2
  561.  
  562. @txtcol        7
  563. @locate        (5,4)
  564. íí(íí)
  565. @txtcol        9
  566. @locate        (0,9)
  567. íí
  568. @keywait
  569. @frmclr     2
  570.  
  571. @frmact     1                            ;
  572.  
  573. @goto        :staff_start
  574.  
  575.  
  576.  
  577. ;
  578.  
  579. :staff_2
  580.  
  581. @pcm         1
  582.  
  583. @iconclr    iconchr9
  584. @iconclr    iconchr12
  585. @iconclr    iconchr10
  586. @iconclr    iconchr11
  587. @iconclr    iconchr3
  588. @iconclr    iconchr6
  589.  
  590. @gra         bzz_w2.gcn,(35,10),2
  591.  
  592. @frmact     2                            ;
  593. @frmclr     2                            ;
  594.  
  595. @txtcol        7
  596. @locate        (5,4)
  597. íí(íí)
  598. @txtcol        9
  599. @locate        (0,9)
  600. íí
  601. íí
  602. íí
  603. íí
  604. íí
  605. íí
  606. íí
  607. íí
  608. íí
  609. íí
  610. @keywait
  611. @frmclr     2
  612. @frmact     1                            ;
  613.  
  614. @goto        :staff_start
  615.  
  616.  
  617.  
  618. ;
  619.  
  620. :staff_3
  621.  
  622. @pcm         1
  623.  
  624. @iconclr    iconchr9
  625. @iconclr    iconchr12
  626. @iconclr    iconchr10
  627. @iconclr    iconchr11
  628. @iconclr    iconchr3
  629. @iconclr    iconchr6
  630.  
  631. @gra         bzz_w2.gcn,(35,10),2
  632.  
  633. @frmact     2                            ;
  634. @frmclr     2                            ;
  635.  
  636. @txtcol        7
  637. @locate        (5,4)
  638. íí
  639. @txtcol        9
  640. @locate        (0,9)
  641. íí
  642. íí
  643. íí
  644. íí
  645. íí
  646. íí
  647. íí
  648. íí
  649. íí
  650. íí
  651.  
  652. @keywait
  653. @frmclr     2
  654.  
  655. @txtcol        7
  656. @locate        (5,4)
  657. íí
  658. @txtcol        9
  659. @locate        (0,9)
  660. íí
  661. íí
  662. íí
  663. íí
  664. íí
  665. íí
  666. íí
  667. íí
  668. íí
  669. @keywait
  670. @frmclr     2
  671.  
  672. @txtcol        7
  673. @locate        (5,4)
  674. íí
  675. @txtcol        9
  676. @locate        (0,9)
  677. íí
  678. íí
  679. íí
  680. íí
  681. íí
  682. íí
  683. íí
  684. íí
  685. íí
  686. @keywait
  687. @frmclr     2
  688.  
  689.  
  690. @txtcol        7
  691. @locate        (5,4)
  692. íí
  693. @txtcol        9
  694. @locate        (0,9)
  695. íí
  696. íí
  697. íí
  698. íí
  699. íí
  700. íí
  701. íí
  702. @keywait
  703. @frmclr     2
  704.  
  705. @txtcol        7
  706. @locate        (5,4)
  707. íí
  708. @txtcol        9
  709. @locate        (0,9)
  710. íí
  711. íí
  712. íí
  713. íí
  714. íí
  715. íí
  716. íí
  717. íí
  718. íí
  719. íí
  720. @keywait
  721. @frmclr     2
  722.  
  723. @frmact     1                            ;
  724.  
  725. @goto        :staff_start
  726.  
  727. ;
  728.  
  729. :staff_4
  730.  
  731. @pcm         1
  732.  
  733. @iconclr    iconchr9
  734. @iconclr    iconchr12
  735. @iconclr    iconchr10
  736. @iconclr    iconchr11
  737. @iconclr    iconchr3
  738. @iconclr    iconchr6
  739.  
  740. @gra         bzz_w2.g